#!perl
# Coder: Mr. Rao
# Time: 2024/02/07
use strict;
use MaterialsScript qw(:all);

my $doc = Documents->Import("SWNT_12.8nm_PMS.xsd");

Modules->Forcite->Energy->Run($doc);

my $symmetrysystem = $doc->SymmetrySystem;
my $stress = $symmetrysystem->Stress;

my $stressXX = $stress->Eij(1,1);
my $stressYY = $stress->Eij(2,2);
my $stressZZ = $stress->Eij(3,3);
my $stressXY = $stress->Eij(1,2);
my $stressXZ = $stress->Eij(1,3);
my $stressYZ = $stress->Eij(2,3);

print $stressXX, " ", $stressXY, " ", $stressXZ, "\n";
print $stressXY, " ", $stressYY, " ", $stressYZ, "\n";
print $stressXZ, " ", $stressYZ, " ", $stressZZ, "\n";
